package GDoc::CGI::Dispatch;

use strict;
use warnings;

use lib '/govdoc/app/lib';
use base 'CGI::Application::Dispatch';

$CGI::Application::Dispatch::DEBUG = 1;

sub dispatch { 
    my $self = shift;

    print STDERR "PATH = $ENV{PATH_INFO}\n";

    $self->SUPER::dispatch( @_ );
}

sub dispatch_args { 
    my $tbl = { prefix    => 'GDoc::CGI',
                table     => [ '/login/:rm'    => { prefix => 'GDoc::CGI', app => 'Login' } ]
              };

    return $tbl;
}

1;
